home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1996 August: Tool Chest / Apple_Developer_Group_August_1996_Tool_Chest.iso / Sample Code / Snippets / Files / SFGetFolder Pascal / GetFolder test program.p < prev    next >
Encoding:
Text File  |  1992-07-15  |  688 b   |  28 lines  |  [TEXT/PJMM]
  1. program TestGetFolder;
  2. { test program requires Think Pascal  }
  3.     uses
  4.         GetFolder;
  5.     var
  6.         mySFR: StandardFileReply;
  7. begin
  8.     showtext; { show Think Pascal's simple i/o window }
  9.  
  10.     StandardGetFolder(mySFR);
  11.     if mySFR.sfGood = false then
  12.         writeln('SFR not good')
  13.     else
  14.         with mySFR do
  15.             begin
  16.                 writeln('sfGood:', sfGood);
  17.                 writeln('sfReplacing:', sfReplacing);
  18.                 writeln('sfType:', sfType);
  19.                 writeln('sfFile:', sfFile.name, sfFile.vRefNum : 3, sfFile.parID : 5);
  20.                 writeln('sfScript:', sfScript);
  21.                 writeln('sfFlags:', sfFlags);
  22.                 writeln('sfIsFolder:', sfIsFolder);
  23.                 writeln('sfIsVolume:', sfIsVolume);
  24.             end;
  25.     WriteLn;
  26.     WriteLn('press return to quit...');
  27.     readln;
  28. end.